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1.0 PROGRAM OVERVIEW 

FRED (File Replacement, Entry, and Deletion) is a set of PDP-12 
subroutines for manipulation of LAP 6-DIAL 1 " indices . 

There are four levels of routines, with provision for a routine 
at any but the lowest level to call any routine of lower level. 
There is no provision for reentrance or recursion, but the 
routines are serially reusable (except for REPLACE / as explained 
later) . 

Locations 20 to 27 contain DJR, JMP pairs to the entry points 
of each major routine, so that the coding can be modified 
without changing calls in external routines. 

2.0 ENVIRONMENT 

FRED occupies two tape blocks and, when in core, uses four LINC 
memory blocks (2000g words), including space for the index. 
The routines are segment-independent, but must be loaded at a 
segment boundary. Thus memory addresses of 2000, 4000, 6000, 
14000, etc, can be used, but 2400 or 3000 may not. 

In this discussion, all locations are relative to the segment 
into which FRED is loaded. 

3 . 0 USAGE 

3.1 The user's program must load FRED from a DIAL tape, 

or assemble it with his program, at any memory address which is 
a multiple of 2000 u . It may then be reused until it is overlaid, 

3.2 Entry points for the routines of FRED start at location 
20 of the segment into which FRED is loaded, as follows: 

20 - LOOKUP 

22 - ENTER 

24 - REPLACE 

2 6 -. DELETE 

30 - READ 

35 - WRITE 



1 LAP6-DIAL-is hereafter referred to as DIAL. 
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READ and WRITE are called as follows: 



LIF. x 
LDA I 
RWPARM 

JMP 30 (JMP 35) 



RWPARM , Y\UNIT 



BUFFER 

BLOCKNO 

COUNT 



/SEGMENT INTO WHICH FRED IS LOADED 
/LOAD AC WITH PARAMETER POINTER 
/POINTER TO READ/WRITE PARAMETER LIST 
/DO READ (WRITE) 



/HIGH-ORDER THREE BITS FOR FIELD 
/LOW-ORDER THREE BITS FOR TAPE UNIT 
/12-BIT MEMORY ADDRESS OF DATA 
/BLOCK NUMBER OF FIRST TAPE BLOCK 
/NO. OF BLOCKS TO READ/WRITE 



The COUNT must not be zero. 

Return is to the instruction following the JMP If AC Bit 1 is 
0, RWPARM is taken from the caller's instruction segment if 1, the 
parameter list is in his data .segment. Note: There is no check 
for attempts by the user to write over LAP6-DIAL, nor is there a 
check to prevent reading over FRED. 



3.3 LOOKUP, ENTER, and DELETE are called as follows: 
LIF X /SEGMENT WITH FRED 

LDA I /AC: POINTER TO FILE DESCRIPTOR VECTOR 

FDV /GO TO LOOKUP (ENTER, DELETE) 

JMP 20 (JMP 22, 26) 



FDV, .UNIT 

TEXT "NAME????" 



/LINC TAPE 0-7 

/FILE NAME , ENDING WITH 77' S 
/TO FILL FOUR WORDS (8 CHARS) 



TYPE 



/0023 FOR SOURCE, 0002 FOR BINARY 



START /STARTING BLOCK NO. OF FILE: 

/FILLED BY LOOKUP, ENTER, REPLACE, 
OR DELETE 

LEN /LENGTH OF FILE IN BLOCKS: FILLED IN 

/BY LOOKUP, CALLER MUST SUPPLY IN 
/ENTER- REPLACE , UNUSED BY DELETE 

a) LOOKUP has two returnsj "the first, immediately 

following JMP 20, is taken if there is an error in the 
parameter list, or the named file is not found. The second, 
two words after JMP 20, is taken if the file is found, in- 
dicating that the information in the file descriptor vector 
is correct. 

LIF X 
LDA I 

JMP LOOKUP /GO FIND THE FILE 

JMP NOFIND /1ST RETURN FILE DOESN'T EXIST 

/COME HERE WHEN FILE IS FOUND 



b) ENTER has three returns^ The first is taken if 

there already exists a file of the same name and type. The 
second is taken on errors in parameter list or insufficient 
space, either in file space or in the index. The third indicates 
successful updating of the index. 

LIF X /SEGMENT CONTAINING FRED 

LDA I /POINTER TO PARAMETER LIST 

FDV 

JMP ENTER /GO ENTER FILE IN INDEX 

JMP EXISTS /1ST RETURN - FILE ALREADY EXISTS 

JMP NOSPACE /2ND RETURN - NO SPACE FOR FILE 

/COME HERE ON SUCCESSFUL COMPLETION 
Note that the largest file which can ever be stored on a DIAL 
tape is 310 blocks, because that is the length of the largest file area. 
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c) DELETE has only one return, immediately following the 
JMP 26. 

3.4 REPLACE may be called only immediately after a call to ENTER 

which took the second return. The parameter list need not be 
explicitly indicated - REPLACE uses that from the preceding ENTER, 
But the instruction field must be .set again. 

There are two returnsj the first is taken on error in calling 
sequence or insufficient space. (This can never occur if the new 
file is smaller than or equal to the old file) . The second indi- 
cates successful replacing of the old file entry. 

LIF X /SEGMENT CONTAINING FRED 

JMP REPLAC /ENTER FOUND A FILE OF SAME NAME 

JMP NOSPAC /NO SPACE FOR NEW ONE 

/COME HERE ON SUCCESSFUL REPLACE 



If REPLACE is not able to find space for a new file, the 
old file remains intact. 

If the call to REPLACE is not immediately preceded by 
a call to ENTER which returns indicating the file exists, the 
machine will halt and FRED must be reloaded. 

4.0 DESCRIPTION OF THE ROUTINES: 

4.1 GETFLD: (Level 0) called to obtain the address of the 
the user's parameter list, which he placed in AC before the 
call. AC is stored in PARAM (Beta 1) . The save field 
buffer is read and stored at SAVFLD. Bit 1 of the para- 
meter list is in the caller's data field, which is also 
FRED's data field, and GETFLD returns. 
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If zero, the parameter list is in the caller's 
instruction field. That field is then obtained 
from SAVFLD and used to construct an LDF in- 
struction at GIF 010 f which is executed to set 
FRED's data field to the caller's instruction field. 
Bit 1 is set in PARAM and GETFLD exits. 

4.2 READ: (Level 1, entry point 30) . The return JMP 
at 0 is saved at RETURN (Beta 17) . An RDC instruc- 
tion is placed in RDWR (Beta 2), and READ jumps to 
COMMOM. See WRITE. 

4.3 WRITE: (Level 1, entry point 35). Return JMP is 
saved at RETURN (Beta 17) , and a WRC instruction is 
moved to RDWR (Beta 2) . From this point (COMMON) , 
READ and WRITE are the same routine. RET 2 (Beta 16) 
is set to 777 7 to indicate that the call was from a 
user outside this field. GETFLD is called to set up 
PARAM (Beta 1) to point to the parameter list. The 
next location, RWENT , is the entry point for internal 
calls by higher lever routines, which must have per- 
formed appropriate setup. The 8-mode field (high-order 

3 bits of 15-.bit address) is obtained from the parameter 
list and stored at EXT for use in extended addressing. 
The two high-order bits of the unit number are then 
moved to AC i 0 -H f with tne low-order bit in Line, 
Tape extended operations are then set. The 12 low-order 
bits of the memory address are obtained from the para- 
meter list and stored at MEMADD. The low-order unit bit 
is obtained from Link, combined with the READ or WRITE 
instruction at RDWR, and stored at CMND The first 
block number is obtained from the parameter list and 
stored, following the command, at 10BLK. 

The block count, also from the parameter list, is com- 
plemented and stored at RDWR (Beta 2) as a loop control. 

IOLOOP begins by setting the tape memory address register, 
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then updating the address at MEMADD. The READ or 
WRITE instruction is executed, the block number is 
incremented, and RDWR is incremented to test for 
completion. If more I/O remains, there is a jump 
to IOLOOP. Otherwise, RET 2 is tested to determine 
whether the call was internal or external. If 
internal (RET2 ^ 7777) , return is immediated. If 
external, the user's fields are restored before re- 
turning. 

4.4 LOOKUP: (Level 2, entry point 20) RET3 (Beta 15) 

is set to 7777 to indicate external call. Internal 
calls enter immediately following this point, at 
1.KP000 . Here, the return JMP is saved at RET2 (Beta 
16) , and GETFLD is called. PARAM (Beta 1) is saved 
at PARM2 (Beta 3) . The current instruction field is 
obtained, and used to set the address into which the 
index will be read. Parameters and return address 
are set up for READ, which is then called at RWENT 
to bring in the index. Upon return, the index is 
checked for validity (5757 is first word) . If 
invalid, an empty index is built in core by storing 
5757 in each word (from 1000 to 1777), and the error 
return is taken. 

At LKP020, the name in the user's parameter list is 
compared with each name in the index until a match 
is found or the end of the index is reached. In the 
later event, the error return is taken. If a match is 
found, the type code in the user's parameter list is 
compared to 23 (S) and 02 (B) . If neither, the error 
return is taken. S causes a jump to WNTS; B jumps 
to WNTB, which increments the pointer to the index 
entry by two and flows into WNTS. 
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Here RET3 is tested for internal or external call; if 
internal, RET2, the return JMP, is incremented to allow 
the caller to distinguish between those cases in which 
/there was a successful name match, but no file of the 
requested type, and those cases in which the name match 
was unsuccessful. The starting block number of file 
is then moved to the user's parameter list. The length 
is then picked up and tested to see whether or not 
there is a file of the requested type. If not, the 
length will be 5757, and the error return will be taken. 
If the requested file exists, RET3 is tested to check 
for external call. If external, the length is stored. 
The return address is then incremented to indicate a 
successful find, and LOOKUP jumps to ERRTN. There, RET3 
is tested again. If the call is internal, return is. 
immediate. If external, LOOKUP restores the user's 
fields before returning. 

4.5 ENTER: (Level 3, Entry Point 22) Starting at NTR000, 

the return JMP is saved in RET 3 (Beta 15) . LOOKUP is 
called at its internal entry point LKP0J20. Because this 
is an internal call, there are three returns. The first, 
indicating that there was no name match, jumps to NTR020, 
where MARK (Beta 10) is set to 7777 to indicate no name 
match, and flows to NTR030 , which increments the return 
address, there being no conflict with existing files. 
From there, control flows into FSP000 to find space for 
the file. Subsequent processing is in common with REPLACE, 
and is described below. The second return indicates that 
the name was found, but not with the requested file type. 
A pointer to the matching entry is saved at MARK, and 
ENTER jumps to UTR030 to increment the return JMP. The 
third return from LOOKUP indicates that the named file 
exists. A pointer to its index entry is saved at MARK, 
ENTSW (Beta 11) is set to 1776 to allow a REPLACE to 
follow, and the first return is taken by going to RTRN0. 



7 



4.6 REPLACE: (Level 3, entry point 24) starting at RPL000, 
the return JMP is saved at RET 3 (Beta 15) , and ENTSW 
(Beta 11) is tested for 177 6 (indicating that ENTER found 
a file conflict) . Any other value indicates a user 
error, and the program halts. The LDF instruction at 
GTF010 is then moved into the instruction stream to again 
set the data field appropriately for the user's parameter 
list, the length field for this file in the index is set 
to 5757 to eliminate the old file, and REPLACE jumps to 

to find space for the file. From this point, pro- 
cessing is in common with ENTER. 

The search for file space is performed in two steps^ 
first, a scan is made to find any suitable space in the 
lower file area. The result, if any, is saved, then a 
scan of the upper area is made. Because the index is 
below the middle of the tape, the result of a successful 
scan of the lower file area can be used to calculate an 
upper limit for scanning in the upper file area. Beyond 
this limit, any suitable file space would not be used, 
since the suitable space in the lower area is closer. 
Conversely, any space found in the upper area before 
reaching this limit must be closer to the index than the 
space found in the lower area. Use of this algorithm 
eliminates, therefore, the need to compare two possible 
spaces for closeness to the index, and generally shortens 
the scan of the upper file area. 

Scanning itself is performed by the conflict-search routine, 
FCT, as follows : 

A tentative starting block (TRY) and the length of the 
desired file (TRYLEN) are set up. Each non-empty index 
entry is compared to TRY by subtracting its starting 
block from TRY. If the result is negative, the file 
specified by this index entry starts at or above TRY. If 
adding TRYLEN still gives a negative result, the file 
starts above the end of the tentative file, and there is 
no conflict. The scan continues to the next index entry. 



8 



If there is a conflict, control is returned to the caller to 
set a new TRY. 

If subtracting the starting block from TRY yields a positive 
result, TRY is above the file specified by this entry, 
by the value of the result. In other words, AC contains 
the distance between TRY and the file concerned. This dis- 
tance is subtracted from the length of the file in question. 
Here, a negative result implies no conflict, and the scan 
continues with the next index entry. A positive result 
represents a conflict, and control returns to the caller. 

During the scan of the lower area, TRY moves downward (away 
from the index) . Each time a conflict is found, a new TRY 
is calculated by subtracting TRYLEN from the starting block 
of the file causing the conflict. This is the highest 
possible starting block which will not cause a conflict 
with this particular file. The conflict search routine 
is called again, and the whole process repeated. Thus^ the 
maximum number of iterations is the number of files in the . 
lower file area. During the scan of the upper area, the 
process is equivalent, except that TRY moves upward. 
When a conflict is found, a new TRY is calculated as the 
sum of the start and length of the file in conflict. 

In detail, the search is performed as follows: 

A SKIP-IF-NEGATIVE instruction (APO I) is moved to 
FCF05J0 in the conflict search routine to make it 
ignore any files in the upper file area. A pointer to 
the start block field of the user's parameter list 
is saved at LPl (Beta 8). The user's length request 
is picked up, tested for validity (zero or negative 
lengths cause a jump to RTRN0, indicating error) , and 
saved at TRYLEN. The length is then subtracted from 
270, to give the block number of highest starting block 
in the lower file area which could satisfy the request. 



9 



This value is in the AC at FSP010, the beginning of the 
search loop for the lower file area. It is tested to 
assure that this starting block is positive (i.e., that it 
is on the tape) . If not, there is no space large enough 
for the file in the lower area, and a jump FSP020 is 
taken. If the starting block is positive, it is stored 
at TRY, and the conflict search routine, FCF, is 
called. Return is to a JMP FCF030 if no file in the 
index would overlap one which started at the block 
number in TRY. If a conflict is found, the second return 
is taken from FCF,* in this case, TRYLEN is subtracted 
from the starting block number of the file which conflicts 
with TRY. This value is in the AC when FSP jumps to 
FSP010 to make another search. 

The code at FSPJ020 is entered, as described above, when 
TRY goes negative before an acceptable space is found 

indicating that there is insufficient continuous file space in the 

lower area for a file the size of TRYLEN. NFSW (Beta 12) is 

set to zero to indicate this. The last block number on 

the tape is subtracted from TRYLEN and stored at UPLIM 

so that, UPLIM contains the complement of the highest 

possible starting block which would permit a file of the 

desired size to fit on the tape. FSP then jumps to 

FSP035 to scan the upper file area. 

The code at FSP030 is entered when FCF is unable to find 
a file which overlaps with one starting at TRY, thus' 
TRY contains the starting block number of a space in the 
lower file area large enough to accomodate the desired file. 
NFSW is set to 7777, indicating space was found in the 
lower area. TRY is saved at SVTRY . The distance between this 
space and the index is [346 - (TRY + TRYLEN - 1) ] . 
The block as far from the index in the upper file area is this 
number +347. The complement of the latter result is calcula- 
ted and stored at UPLIM. Thus the search of the upper file 
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area can be stopped and considered unsuccessful if no 
space can be found closer to the index than the space 
already found in the lower area. At this point control 
flows into FSP035, and processing is the same whether 
space was found in the lower area or not. 

A SKIP-IF-POSITIVE instruction (APO) is moved to FCF050, 
to cause files in the lower area to be ignored during 
the conflict search. The AC is initialized to 470, 
the first block of the upper area, and the upper area 
scan is begun at FSP040. The AC is stored at TRY, 
then added to UPLIM. If the result is positive, TRY 
is too large to be useful because it represents the 
starting block of a file which would run off the end 
of the tape, or it is farther from the index than the 
space found in the lower area. A jump is therefore 
taken to FSP050, which tests NFSW for a find in the 
lower area. If none, there is no space, and an error 
return is taken via RTRN0. If NFSW is set, however, 
the starting block at SVTRY is restored to TRY, and 
control flows to FSP060. 

If the sum of TRY and UPLIM was negative or zero (zero 
result will always be negative) , FCF is called to 
search for a conflict. On finding one, the sum of 
the starting block and the length of the conflicting 
file is taken as the next TRY, and FSP jumps to 
FSP040 to begin another scan. If no conflict is found, 
however, before TRY exceeds the absolute value of 
UPLIM, TRY represents the best starting block for 
the new file, and FSP jumps to FSP060. 

At this point, MARK (Beta 10) is tested to determine 
whether an index entry with the desired name already 
exists. If so, control transfers to FSP100. If not, 
the index is scanned for an entry containing 5757 in 
the name field, indicating it is empty. If no empty 
entry is found, an error return is taken via RTPN0. 
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If ah empty entry is found, the file name from the user's 
parameter list is moved in. The user's type specification 
(S or B) is examined, and the start and length pointers 
for the other file type are filled with 5757. Control 
flows to FSP100, where the starting block and length 
are stored in the index, and the starting block is 
stored in the user's parameter list. 

The write code, parameter pointer, and return jump are 
setup for re-writing the index. The I/O handler is 
called via its internal entry point RWENT. The return 
address is incremented to indicate successful completion, 
the user's fields restored, and control is returned. 

4.7 FCF: (Level 2, no external entry point) FCF is 

the conflict search routine. Given a starting block, 
TRY, and a length, TRYLEN, its task is to scan the index 
for a file one or more of whose blocks is in the range 
from TRY to (TRY + TRYLEN - 1) . If it should find such 
a file, pointers to the starting block and length are 
returned in XPNT and XPNT2, respectively, and control 
is returned to (P+2) , where P is the address of the 
calling jump. If no conflict is found, control is 
returned to (P+l) . 

Upon entry at FCF000, the return jump is saved at 
RET2 and XPNT (Beta 4) is initialized to point to 
the first index entry. Control flows to FCF010, 
where XPNT is incremented and tested for end-of- index. 
If the end has been reached , there is no conflict and 
control returns to the caller via RET2. If the end has 
not been reached, bit 9 of XPNT is tested to determine 
whether XPNT is pointing to a file name or the start 
and length area of the entry. In the latter case, 
control transfers to FCF040. In the former, the 
name is compared to 57 57. If equal, the entry is 
empty, so XPNT is incremented by 6, and the loop 
is entered again at FCFJ310. 
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If the name is not empty, XPNT is incremented by 4, to 
address the source-file pointers, and control flows into 
FCF040. FCF050 having been set to ah APO, or APO I 
instruction, the start block is compared to the index 
TBLK to determine whether the file is in the wrong 
area for this scan. If it is the wrong area, the 
loop is re-entered at FCF010. This check, it should 
be noted, is unnecessary, but was included to speed 
the scan. Thirteen octal words can be saved by 
its elimination if space becomes tight. 

XPNT 2 is set to address the length field, which is tested 
for validity. If negative, there is no file of that 
type, and the loop is re-entered at FCF010. If the 
length is positive, the starting block is subtracted 
from TRY. If the result is negative or zero, TRY is 
below the start of this file by complement of AC, and 
control transfers to FCF06J2I. If the result is positive^ 
TRY is above the start of this file by the contents of AC. 
Subtracting this value from the file length gives a 
positive result if there is a conflict, a negative or 
zero result if none. If there is a conflict, it is 
returned to the caller via FCF07J0. If not, the scan 
is resumed at FCF010. 

The code at FCF060 is entered when TRY is below the start 
of this file. TRYLEN is added to the complement of 
the block difference. A negative or zero result implies 
no conflict, and the scan continues at FCFj2flj2(. A positive 
result is a conflict, so control flows into FCF070, which 
increments RET2 and jumps to it. 
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4.8 DELETE: (Level 3, Entry Point 26). Beginning at DEL000, 
the return jump is saved at RET3 (Beta 15) . LOOKUP is then 
called via the internal entry point to find the 

name and file to be deleted. On each of the alternate returns, 
a JMP RTRN0 is taken, since it is unnecessary to delete a file 
which doesn't exist. On the third return, the start and 
length words for this file are filled with 5757 to eliminate 
the file. Bit 10 of the address of the length word is comple- 
mented to give the address of the length word for the other 
file type.; that is, if a source file is being deleted, 
the low order digit of the address of its length word is 5. 
Complementing bit 1 gives 7, the address of the binary length. 
The length of the other type file is tested to determine 
whether such a file exists. If it is positive, a jump is taken 
to DEL010. If negative ^ there is no file of the other type, 
so the name area of the index entry is set to 5757. At 
DEL010, the write code, return jump, and parameter pointers 
are set up, and the I/O handler is called at RWENT to 
rewrite the index. 

5.0 FLOW CHARTS 
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FRED -- FILE REPLACEMENT, ENTRY » AND DELETION 
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BETA REGISTER DEFINITIONS 

(13 AND 14 ARE UNUSED) 

PARAM= 1 

RDWR=2 

FDV = 2 

PARM2=3 

XPNT=4 

XPNT2=5 

LP1 = 6 

LP2 = 7 

MARK =10 

ENTSW=11 

NFSW=12 

RET3=15 

RET2-16 

RETURN=17 

LOAD ADDRESS OF DIAL INDEX -- DO NOT MODIFY: RAMIFICATIONS ARE OVERWHELMING 
INDEX=1000 

PDP-8 MODE INSTRUCTIONS FOR USE AFTER IOB 

LRMF=6 24 4 
LRIB=6234 
LR IF =6224 

ENTRY POINTS FOR MAJOR ROUTINES OF FRED 
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FOLLOWS — 


0065 






/ 






0066 






/ 0/ 


FIELD (3 BITS) / 


UNIT / 


0067 






/ 1/ 


MEMORY ADDRESS (12 BITS) / 


0070 






/ 2/ 


FIRST BLOCK 


NUMBER / 


0071 






/ 3/ 


NUMBER OF BLOCKS / 


0072 






/ 






0073 


0030 


0057 


READ, 


SET RETURN 


/ SAVE RETURN ADDRESS 


0074 


0031 


0000 




0 




0075 


0032 


0062 




SET I RDWR 


/ INDICATE READ OPERATION 


0076 


0033 


0700 




700 




0077 


0034 


6041 




JMP COMMON 


/ GO TO COMMON PROCESSING 


0100 


0035 


0057 


WRITE. 


SET RETURN 


/ SAVE RETURN 


0101 


0036 


0000 




0 




0102 


0037 


0062 




SET I RDWR 


/ INDICATE WRITE OPERATION 


0103 


0040 


0704 




704 




0104 


0041 




O ki l> A M 

COMMON 


, SET I RET2 


/ SET CODE FOR USER CALL 


0105 


0042 


7777 




7777 




0106 


0043 


6116 




JMP GETFLD 


/ SETUP TO ADDRESS PARAMETERS 


0107 


00 44 


1001 


RWENT, 


LDA PARAM 


/ GET FIRST WORD OF PARAMETERS 


0110 


0045 


0306 




ROR 6 


/ MOVE BANK NO TO RIGHT HALF 


0111 


0046 


1340 




ST H 


/ HOLD FOR EXTENDED ADDRESSING 


0112 


0047 


0054 




EXT 




0113 


00 50 


02 66 




ROL I 6 


/ RESTORE UNIT BITS RIGHT 


0114 


0051 


15 60 




BCL I 


/ KEEP TWO HIGH-ORDER BITS FOR AXO 


0115 


0052 


7774 




7774 


/. . . PLUS LOW-ORDER IN LINK 


0116 


0053 


1620 




BSE I 


/ SET HIGH-ORDER UNIT BITS FOR AXO 


0117 


0054 


0020 


EXT , 


0020 




0120 


0055 


0001 




AXO 


/ SET EXTENDED OPERATIONS BITS 


0121 


0056 


1021 




LDA I PARAM 


/ GET MEMORY ADDR FROM PARAMS 


0122 


.0057 


4072 




STC MEMADD 


/ HOLD FOR TAPE USE 


0123 


0060 


0264 




ROL I 4 


/ GET UNIT BIT INTO POSITION 


0124 


006 1 


1600 




BSE 


/ SET DESIRED READ/WRITE OP CODE 


0125 


0062 


0002 




RDWR 




0126 


0063 


4077 




STC CMND 


/ SET READ/WRITE INSTRUCTION 


0127 


0064 


1021 




LDA I PARAM 


/ GET START BLOCK NUMBER 


0130 


0065 


4100 




STC IOBLK 


/ SET APPOROPRI ATELY 


0131 


0066 


1021 




LDA I PARAM 


/ BLOCK COUNT. . . 


0132 


0067 


0017 




COM 


/ . . . MADE NEGATIVE 


0133 


0070 


4002 




STC RDWR 


/ STORE IN INDEX 


0134 


0071 


1020 


I 0L00P 


, LDA I 


/ GET MEMORY ADDRESS FOR DATA 


0135 


0372 


0000 


MEMADD 


, 0 


/ ADDRESS FOR NEXT BLOCK 


0136 


Z073 


0023 




TMA 


/ TELL THE TAPE WHERE 


0137 


0074 


1120 




ADA I 


/ UPDATE ADDRESS 


0140 


0075 


0400 




Ann 

400 


/ dY BLULK LtNblH 


0141 


;. ; 00 76 


4072 




.STC MEMADD 


/ STORE NEW ADDR 


0142 


0077 


0700 


CMND » 


RDC 


/ MODIFIED FOR DESIRED OPERATION 


0143 


01 00 


0000 


IOBLK, 


0 


/ BLOCK NUMBER WANTED 


0144 


0101 


1020 




LDA I 


/ GET CONSTANT 1 


0145 


0102 


0001 




1 




0146 


0103 


1140 




ADM 


/ UPDATE BLOCK NUMBER 


0147 


0104 


0100 




IOBLK 




0150 


0105 


0222 




XSK I RDWR 


/ SKIP IF END OF OPERATION 


0151 


0106 


60 71 




JMP IOLOOP 


/ ELSE CONTINUE 


0152 








EJECT 





01^4 




/ 


10 IS COMPLETl 


-- 


RETURN TO CALLER 


0155 
0156 


0107 


/ 

0216 


XSK RET 2 


/ 


SKIP IF US^%3ALL 


01-7 


0113 


6017 


JMP RETURN 


/ 


RETURN NOW^r INTERNAL CALL 


0160 


0111 


0500 


I OB 






0161 


0 1,1 2 


6244 


LRMF 


/ 


RESTORE TO DESIRED STATUS 


0162 


0113 


0040 


SET 0 


/ 


RESTORE RETURN JMP 


0163 


0114 


0017 


RETURN 






0164 


0115 


6000 


JMP 0 


/ 


GO TO CALLER 


0165 




/ 








0166 




/ 








0167 




/ 








0170 




/ 


GETFLD GET CALLERS FIELDS AND PARAMETERS 


0171 




/ 








0172 




/ 


ENTERED IN LINC 


MODE, WITH 10-BIT PARAMETER POI 


0173 




/ 


RETURN WITH INDIRECT 


POINTER IN LOCATION 1 TO 


0174 




/ 


DATA FIELD CONTAINING PARAMETERS. 


0175 




/ 








0176 


0116 


1620 GETFLD. BSE I 


/ 


crT piT a ( c nn Nl RFfflMF^ ATT 


0177 


0117 


4000 


4000 






0200 


0120 


0262 


ROL I 2 


/ 


DTT 1 Tn IT Mi/ 

D I I 1 ! U LINK 


0201 


0121 


0302 


ROR 2 


f 


DrCTnOf 9—11 crT DTT 1 


0202 


0122 


4001 


STC PARAM 


/ 


HOLD AC CONTENTS 


0203 


0123 


4011 


STC ENTSW 


/ 


CLEAR ENTSW 


0204 


0124 


0500 


IOB 






0205 


0125 


6234 


LRIB 






0206 


0126 


0303 


ROR 3 


/ 


INST FLD TO AC 7-11 


0207 


0127 


0452 


L2E 


/ 


SKIP IF PARMS IN INST FlD 


0210 


0130 


0245 


ROL 5 


/ 


DF TO AC 7-11 


0211 


0131 


1560 


BCL I 


/ 


DROP OTHER BITS 


0212 


0132 


7740 


7740 






0213 


0133 


1620 


BSE I 


/ 


BUILD LDF INST 


0214 


0134 


06 40 


LOF 






0215 


0135 


4140 


STC GTF010 


/ 


SAVE IT 


0216 


0136 


0452 


LZ£ 


/ 


IS DF ALREADY SET? 


0217 


0137 


6000 


JMP 0 


/ 


YES 


0220 


0140 


0640 GTF010, LOF 


/ 


NO - SET IT 


0221 


0141 


6000 


JMP 0 


/ 


RETURN TO CALLER 


0222 






EJECT 







3 



0224 






/ 




LOOKUP - FIND NAMED 


FILE IN DIAL INDEX 


0225 






/ 










0226 






/ 




ENTERED IN LINC 


MODE 


WITH ADDRESS OF A PARAMETER 


0227 






/ 




LIST IN AC. 






0230 






/ 










0231 






/ 


0/ 


UNIT NUMBER / 






0232 






/ 


1/ 


FILE NAME / 






0233 






7 


2/ 


CONTD / 






0234 






/ 


3/ 


CONTD / 






0235 






/ 


4/ 


CONTD / 






0236 






/ 


5/ 


TYPE (S OR B ) / 






0237 






/ 


6/ 


STARTING BLOCK 






0240 






/ 


7/ 


NO OF BLOCKS / 






0241 






/ 










0242 


0142 


0075 


LOOKUP 


. SET I RET3 


/ 


INDICATE EXTERNAL CALL 


0243 


0143 


7777 






7777 






0244 


0144 


0056 


LKP000 


, SET RET2 


/ 


SAVE RETURN JMP 


0245 


0145 


0000 






0 






0246 


0146 


6116 






JMP GETFLD 


/ 


SETUP PARAMETER POINTER 


0247 






/ 










0250 






/ 




READ THE INDEX 






0251 
















0252 


0147 


0043 






SET PARM2 


/ 


MOVE PARAMETER POINTER TO ALT AREA 


0253 


0150 


0001 






PAR AM 






0254 


0151 


1020 






LDA I 


/ 


I N I T AC 


0255 


0152 


0001 






1 






0256 


0153 


0500 






IOB 






0257 


0154 


6224 






LR IF 


/ 


GET INSTRUCTION FIELD 


0260 


0155 


0243 






ROL 3 


/ 


MOVE FIELD NO TO RIGHT HALFWORD 


0261 


0156 


1340 






STH 


/ 


STORE DATA ADDRESS FOR INDEX READ 


0262 


0157 


0300 






XP ARM+1 






0263 


01 60 


0243 






ROL 3 


/ 


BANK NO TO BITS 0-2 


0264 


0161 


1560 






BCL I 


/ 


DROP ALL BUT BANK NO 


0265 


-0162 


0777 






0777 






0266 


0163 


1603 






BSE PARM2 


/ 


COMBINE WITH UNIT NO 


0267 


0164 


4,2 7 7 






STC XP ARM 


/ 


STORE INTO PARAMETER LIST 


0270 


0165 


0062 






SET I RDWR 


/ 


SETUP READ CODE 


0271 


0166 


0700 






700 






0272 


0167 


0077 






SET I RETURN 


/ 


SETUP RETURN JMP FROM READ 


0273 


.0.1 7 0 


6174 






JMP LKP010 


/ 


INST MOVED FOR LATER USE 


0274 


0171 


0061 






SET I PARAM 


/ 


SETUP PARAMETER POINTER 


.02 75 


0172 


0277 






XP ARM 






0276 


0173 


6044 






JMP R WENT 


/ 


GO TO READ INDEX 


0277 


0174 


0064 


LKP.010 


» SET I XPNT 






0300 


0175 


1000 






I NDEX 






0301 


0176 


1004 






LDA XPNT 


/ 


GET FIRST WORD OF INDEX 


0302 


^177 


1460 






SAE I 


/ 


SKIP IF VALID FOR INDEX 


0303 


02 00 


5757 






5757 


/ 


FIRST WORD OF INDEX 


0304 


0201 


0^67 






SKP 


/ 


NOT AN INDEX -- BUILD ONE 


0305 


0202 


6213 






JMP LKP020 


/ 


INDEX IS OK -- GO TO NAME SCAN 


0306 






/ 










0307 






/ 




THERE IS NO INDEX -- 


• CREATE ONE 


0310 






/ 










0311 


3203 


1020 






LDA I 


/ 


GET FILLER WORD 


3312 


3204 


5757 






5757 






2313 


3 2 05 


1344 






STA XPNT 


/ 


STORE IN NEXT INDEX WORD 


3314 


3236 


3224 






XSK I XPNT 


/ 


INCREMENT AND TEST FOR END 


0315 


,0207 


62 05 






JMP .-2 


/ 


ZAP ANOTHER 


3316 


3213 


134 4 






STA XPNT 


/ 


ZAP LAST WORD • 


3317 | 


^^3211 


3223 






XSK I PARM2 


/ 


MAKE PARM2 L^^LIKE WE SOUGHT M A T CH 
RETURN NO FlW 


3320 




6252 






JMP ERRTN 


/ 


0321 










EJECT 







0 32 3 






/ 


SCAN INDEX FOR 


NAMF 




Si 3 7 4 






/ 

/ 








0325 


021 3 


1023 


LKP020. LDA I PARM2 


/ 


G F T FIRST D OF NAME 


0326 


0214 


4226 




stt woRm 


/ 


S A V F AT C MrA R F INST 


03?7 


2215 


1020 




. IDA T 


/ 


rnw^T AWT 7 


03 30 


0216 


0207 




7 






0331 


0217 


1140 




Ann 


/ 


Ann tt t n t m nF x potntfr 


03 32 


02 20 


00 04 




XPNT 






0333 


02 21 


02 04 




YQ k XP NT 


/ 


TFST FOR END OF INPFX 


0334 


0222 


04 67 






/ 


<?K I P M n T F M n 


0335 


02 23 


6252 




IMP rDDTfit 


/ 


OTHERWISE RETURN NO SUfTESS 


0336 


0224 


1024 




i n a t ypMT 
L U A 1 ArN 1 


/ 


cft a wnRn nF iwnFX N a m f 


0337 


0225 


1460 




o A L I 


/ 


qi< T p nil T QF I OOP IF FIRST WORDS 




0?26 

t c C- w 


0 00 0 

xJ fJ 


UDRD1 


w 






0341 


0227 


62 1 5 




IMD 1 1/ D f7l (71 


/ 


i nnp t f wnT foh ai 


0342 


0230 


0045 




c r T VflMTI 
bt I KPN 1 i 


/ 


FIRST W0RDS FOUAI 


0343 


0231 


0004 




V D M T 

A r l\ 1 


/ 


CT ART FTNIAI On MP AR F 


0344 


0232 

It. C. v_J C 


0042 




St i r U V 


/ 


PHTWT TPMPfiRARY PHV TNinFV 
r u i i\ i I c. n r u n M n i " u V ii^lJuA 


0345 


0233 


0003 




p A RM ? 






0346 

%J w ~ w 


0234 

*y c w » 


0067 




cry y 1 pp 


J 

f 


cry { nnp milNTrR 


0347 


0235 

c y ^ 


7774 










0350 


0236 


1022 


I KP050 
l_ r\ r kj ^ iy 


. i n a t r n v 

' L U M i r U V - 


/ 




0351 


0237 


1.465 




CAT T YCmT/ 
o A t 1 A r IN 1 £ 


/ 


rnwPARF t n tho^f t m i n n f x fwtry 


0352 


0240 


6215 




IMP 1 K P 0 ~K (71 


/ 


tINFOUAl - RF TDRM T f) SFARPM 1 nnP 


0353 


0241 


0227 




y^K t i pp 

Ajn i L r C 


/ 


1 OOP TO COMPARE FNT T RF MAMF 


0354 


02 42 


6236 




Jnr L K r 10 Plo 






0355 






/ 








0356 






/ 

r 


TF U! F r F T UFRF 


WF VF 


' FniiKin TWF M AMF 


0357 

V W V 7 ' 






/ 








0360 


0243 


1022 




i n a t f n \f 

LUA I r U V 


/ 


PICK UP SOURCE/R I NAR Y rnDF 


0361 


0244 


1420 

x ™ c_ tc 




o M U I 


/ 


T Q TWF r HHF ^? 

inc. Uwu/u. Oi 


03 ft? 


0? 45 

\J C ~ 


?3 £71(75 

w 1CJ 1CJ 










0363 


02 46 


6263 




IMP U M T 


/ 


yrc - r twt u T m CfJUPPF 

tCO y 1 V L nit' OUUnwL 


0364 


02 47 


14 20 




c u n t 


/ 


IS TWF r DDF P? 


0365 

%J \J \J 


0250 


02 00 




0200 






0366 


0251 


6.2 61 




JMP WNTB 


/ 


YF S - a T VF HIM R T N AR Y 


0"$ft7 

y vJ U / 






/ 
f 








0370 






/ 
l 


COME HERE ON DETECTING ERROR * OR UNSUCCESSFUL FIND 


0371 














0372 


0252 


0215 


rDDTM 

LK K 1 N » 


XSK RET3 


/ 


TEST FOR INTERNAL CALL 


0373 


0253 


6016 




JMP RET2 


/ 


RETURN NOW IF INTERNAL 


0374 


0254 


00 40 




SET 0 


/ 


MOVE IN RETURN J MP 


0375 


0'7 5 5 






RET2 






0376 


02 56 


05 00 

1/ t* IC 




IOB 






0377 


0257 


6244 




L.RMF 






0400 


02 60 


6000 




JMP 0 


/RETURN TO CALLER 


0401 








EJECT 






- 




f 

a ' 











0403 






/ 


WEVE 


FOUND WHAT 


HE 


WANTS - GIVE IT HIM 


0404 






/ 










0405 


0 261 


0225 


WNTB, 


XSK 


I XPNT2 


/ 


CANT SKIP; BUT THIS ... 


0406 


0262 


0225 




XSK 


I XPNT2 


/ 


. . .FAKES OUT THE POINTER 


0407 


0263 


0215 


WNTS , 


XSK 


RET3 


/ 


IF I NTERNAL CALL . . . 


0410 


0264 


0236 




XSK 


I RET2 


/ 


...SETUP FOR THREE RETURNS 


0411 


0265 


1025 




LDA 


I X P N T 2 


/ 


GET STARTING BLOCK NO FROM INDEX 


0412 


0266 


1062 




STA 


I FDV 


/ 


STORE IN CALLERS PARAMETER LIS' 


0413 


0267 


1025 




LDA 


I XPNT2 


/ 


GET NO OF BLOCKS 


0414 


0270 


0451 




APO 




/ 


SKIP IF DESIRED DATA EXISTS 


0415 


0271 


6252 




JMP 


ERRTN 


/ 


RETURN ERROR IF NO FILE 


0416 


0272 


0215 




XSK 


RET3 


/ 


DONT STORE RESULT IF INTERNAL 


0417 


0273 


0467 




SKP 








0420 


0274 


1062 




STA 


I FDV 


/ 


RETURN NO OF BLOCKS 


0421 


0275 


0236 




XSK 


I RET2 


/ 


INCREMENT JMP RETURN ADDRESS 


0422 


0276 


6252 




JMP 


ERRTN 


/ 


NOT REALLY AN ERROR 


0423 






/ 










0424 






/ 


PARAMETERS TO READ 


ROUTINE 


0425 






/ 










0426 


0277 


0000 


XPARM , 


0 




/ 


FIELD AND UNIT 


0427 


0300 


1000 




INDEX 


/ 


DATA ADDRESS 


0430 


0301 


0346 




346 




/ 


BLOCK NUMBER 


0431 


0302 


0002 




2 




/ 


BLOCK COUNT 


0432 








EJECT 







c 



P. 6 



0434 






/ REPLACE REPuACE A NAMED ENTRY IN DIAL INDEX 


0 43 5 






/ 


MODE AFTER CAI^^G ENTER. 








/ ENTERED IN L INC 


34371^ 






/ MAY BE CALLED ONLY IMMEDIATEL 1W T E R ENTER HAS RETURNED T 0 P+l. 


0440 






/ INDICATING THAT 


A FILE OF THE PROPOSED NAME AND TYPE ALREADY EXISTS. 


0441 

0442 


0303 


0055 


/ 

RPL000 . SET RE T 3 


/ save return 


0443 


0304 


0000 


0 




0444 


0305 


0231 


XSK I ENTSW 


/ TEST FOR NAME FOUND . SET "REPLACE " 


0445 


0306 


0000 


RPL010 , HLT 


/ ILLEGAL SEQUENCE ~~ STOP 


0446 


0307 


0211 


XSK ENTSW 


/ TEST FOR CONTINUE AFTER HALT 


0447 


0310 


6306 


JMP RPL010 


/ BAD BOY STOP AGAIN 


0450 


0311 


1000 


LDA 


/ PI CK UP LDF INSTRUCT ION 


0451 


0312 


0140 


GTF010 




0452 


0313 


4314 


STC .+1 




0453 


0314 


0000 


0 


/ BECOMES AN LDF INSTRUCTION 


0454 


0315 


1020 


LDA I 


/ ZAP LENGTH FIELD OF THIS FILE 


0455 


£ 316 


5757 


5757 




0456 


0317 


1045 


STA XPNT2 




0457 


0 3 2 0 


6345 


JMP FSP000 


/ ALL LOOKS GOOD -- DO YOUR THING 


0460 






/ 




0461 






/ ENTER -- ADD A NAMED ENTRY TO DIAL INDEX 


0462 






/ 




0463 






/ ENTERED IN LINC 


MODE WITH AC POINTING TO A PARAMETER LIST 


0464 






/ IDENTICAL TO THAT FOR LOOKUP. EXCEPT THAT THE FILE-LENGTH 


0465 






/ FIELD IS FILLED 


BY THE USER. 


0466 






/ 




0467 






/ RETURN IMMEDIATELY FOLLOWING THE JMP (P+l) IF THE FILE ALREADY EXISTS 


04 70 






/ RETURN TO P+2 IF 


THERE IS NO ROOM FOR THE FILE. 


0471 






/ RETURN TO P+3 IF 


OPERATION COMPLETE (DIAL INDFX HA^ BPFN UPDATED). 


0472 






/ 




0473 


0321 


0055 


NTR000, SET RET3 


/ SAVE RETURN 


0474 


0322 


0000 


0 




0475 


0323 


6144 


JMP LKP000 


/ LOOKUP NAME IN INDEX 


0476 


0324 


6342 


JMP NTR0 20 


/ THIS NAME IS NOT IN INDEX 


0477 


0325 


6335 


JMP NTR010 


/ NAME IS IN INDEX* BUT NOT wITH THIS TYPE 


0500 






/ 




0501 






/ WE FOUND A FILE 


OF THIS NAME AND TYPE 


0502 






/ 




0503 


0326 


1020 


LDA I 


/ GET CONSTANT -2 


0504 


0327 


7775 


-2 




0505 


0330 


2005 


ADD XPNT2 


/ POINT TO POINTER AREA - 2 


0506 


0331 


4010 


STC MARK 


/ SAVE POINTER FOR REPLACE 


0507 


0332 


0071 


SET I ENTSW 


/ INDICATE READY-FOR-REPLACE 


0510 


0333 


1776 


1776 




0511 


0334 


6543 


JMP RTRN0 


/ GO HOME 


0512 






/ 




0513 






/ FOUND THE NAME, 


BUT NOT TYPE 


0514 






/ 




0515 


0335 


1020 


NTR010, LDA I 


/ CONSTANT -2 


0516 


0336 


7775 


-2 




0517 


0337 


2005 


ADD XPNT2 


/ FROM POINTER INDEX 


0520 


0340 


4010 


STC MARK 


/ SAVE A DDR OF FILE POINTERS 


0521 


0341 


6344 


JMP NTR030 


/ GO BEGIN SCAN FOR FILE SPACE 


0522 






/ 




0523 






/ NOTHING FOUND IN 


THE LOOKUP SCAN 


0524 






/ 




0525 


0342 


0070 


NTR020, SET I MARK 


/ INDICATE NO FIND 


0526 


0343 


7777 


77 77 




0527 


0344 


0235 


NTR030, XSK I RET3 


/ NO NAME CONFLICT, INCREMENT RETURN 


0530 






EJECT 





P 7 



0532 
0533 
0534 
0535 
0536 
0537 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 



o 







/ FSP - 


FIND SPACE 


ON 


DIAL TAPE FOR NEW FILE 


0345 


1020 


r 

P" ^PP! 51(71 . 


i n a 

L U n 


I 


/ 


PICK UP SKIP-NEG INSTRUCTION 


0346 


0471 




A r U 


I 


/ 


MOVED TO FCF050 


0347 


4605 




Q T P 


FCF050 


/ 


STORE IN INDEX-SCAN ROUTINE 


0350 


1020 




1 n A 
LUA 


I 






0351 


0005 




c 
j 








0352 


2003 




Ann 

A J u 


PARM2 


/ 


POINT TO USERS START BLOCK FIELD 


0353 


1040 




CT A 
O 1 M 




/ 


HOLD FOR LATER 


0354 


0006 




1 P 1 








0355 


4007 




O 1 U 


LP2 


/ 


STORE POINTER 


0356 


1027 




i n a 
LUA 


I LP2 


/ 


PICK UP LENGTH 


0357 


0451 




a d n 
Ar U 




/ 


TEST FOR POSITIVE LEN REQUEST 


0360 


6543 




I M D 

Jn r 


RTRN0 


/ 


ELSE RETURN ERROR 


0361 


0470 




a 2 r 
Art 


I 


/ 


SKIP IF LEN NOT 2ER0 


0362 


6543 




1 M D 

Jri r 


RTRN0 


/ 


BOMB IF NULL REQUEST 


0363 


1040 




STA 




/ 


HOLD LENGTH HANDY 


0364 


0636 




TRYLEN 






0365 


0017 




COM 








0366 


1120 




ADA 


I 


/ 


SUBTRACT LEN FROM HIGHEST BLOCK NO, LOW 


0367 


0270 




270 








0370 


0470 


re pa i a 


AZE 


I 


/ 


SKIP NOT ZERO 


0371 


0011 




CLR 




/ 


FORCE TRUE ZERO IF RESULT IS 7777 


0372 


0451 




APO 




/ 


SKIP IF STILL ON THE TAPE 


0373 


6404 




JMP 


FSP020 


/ 


NO SPACE IN LOW FILE AREA 


0374 


4635 




STC 


TRY 


/ 


HOLD TRIAL STARTING BLOCK 


0375 


6550 




JMP 


FCF000 


/ 


GO FIND POSSIBLE CONFLICT 


0376 


• 6413 




JMP 


FSP030 


/ 


HOORAY -- NO CONFLICT 


0377 


1000 




LD A 




/ 


NOPE -- THAT TRY IS NO GOOD 


0400 


0636 




TRYLEN 






0401 


0017 




COM 




/ 


SUBTRACT THE SEARCH LENGTH FROM... 


0402 


1104 




ADA 


XPNT 


/ 


... THE START BLOCK OF CONFLICT FILE... 


0403 


6370 


/ 


JMP 


FSP010 


/ 


. . . AND TRY AGAIN 






/ WEVE FOUND NO SPACE 


LARGE ENOUGH IN THE LOWER FILE AREA 


0404 


0072 


FSP020, 


SET 


I NFSW 


/ 


SET NO-FIND SWITCH 


0405 


0000 




0 








0406 


1020 




LD A 


I 


/ 


PICK UP MINUS END OF TAPE 


0407 


6777 




-1000 






0410 


2636 




ADD 


TRYLEN 


/ 


MINUS LAST FEASIBLE START BLOCK 


0411 


4640 




STC 


UPLIM 


/ 


HOLD AS SCAN LIMIT 


0412 


6425 




JMP 


FSP035 


/ 


ENTER UPPER SCAN 



0413 
0414 
0415 
0416 
0417 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0430 
0431 
0432 



0 07 2 
7777 
1000 
0635 
1040 
0637 
2636 
1120 
7061 
4640 
1020 
0451 
4605 
1020 
0470 
1040 



/ 

/ 
/ 

FSP030 



TRY POINTS TO GOOD SPACE IN LOWER AREA 



FSP035 



FSP040 



SET I NFSW 

7777 

L DA 

TRY 

STA 

SVTRY 

ADD TRYLEN 
ADA I 
-716 

STC UPLIM 
LDA I 
A P 0 

STC FCF050 

LDA I 

470 

STA 



/ INDICATE SPACE FOUND 

/ PICK UP OLD TRY 

/ SAVE IT 

/ GET END BLOCK 

/ GET COMPARE CONSTANT ( TRYEND-2* I NDEX LOC> 

/ MINUS HIGHEST DESIRABLE STARTING BLOCK 

/ GET SKIP-POS INSTRUCTION 

/ MOVED TO FCF050 

/ STORE IN INDEX SCAN ROUTINE 

/ INITIAL ST^y NG E E F 



/ SET NEW TRY BLOCK 



0631 


04 34 


2640 




ADD UPL I M 


/ COMPARE TO MAXIMUM USABLE BLOCK 


$632 


0 -1 1 5 


04 71 




APO I 


/ SKIP IF ST TM IN USEFUL REGION 


W s> ^^^^^ 


0 43 6 


6 4 4 4 




JMP FS p 050 


/ NO SPACE V%|H I S AREA 




04 3 7 


6550 




JMP FCF000 


/ SEARCH FOrWwNFl ICT 


0635 


0 4 4 0 


645i 




JMP PSP060 


/ WEVE FOUND SPACE 


3636 


04 4-1 


1004 




L 0 A X P N T 


/ THIS TRY WONT WORK . . . 


0637 


04 42 


1105 




ADA XPNT2 


/ ... SO TRY AT END OP CONFLICT FILE 


06 40 


04 43 


64 32 




JMP FSP040 




(7)641 

w y i a 






/ 






0642 






/ 


THERE WAS NO SPACE FOUND IN UPPER FILE AREA 


0643 
06 44 


0444 


021 2 

*>f w J, £~ 


/ 

FSP050 


, XSK NFSW 


/ SKIP IF FOUND IN LOWER AREA 


0645 


0445 


6543 




JMP RTRN0 


/ RETURN BAD NEWS -- NO SPACE 


06 46 


04 46 


1000 




LDA 


/ GET START BLOCK OF FILE IN LOWER 


0647 


0447 


0637 




SVTR'Y 




0650 


0450 


4635 




STC TRY 


/ THATS THE ONE WELL USE 


0651 






/ 






0652 






/ 


THERE IS SPACE 


AT TRY 


0653 






/ 






0654 


0451 


0210 


FSP060 


, XSK MARK 


/ WAS THERE A FILE BY THIS NAME 


0655 


0452 


6525 




JMP FSP100 


/ YES - GO USE THAT ENTRY 


0656 






/ 






0657 






/ 


WE MUST SEARCH 


FOR EMPTY INDEX SPACE 


0660 






/ 






0661 


0453 


0070 




SET I MARK 


/ INITIALIZE MARK POINTER 


0662 


0454 


1000 




INDEX 




0663 


0455 


1020 


FSP070 


> LDA I 


/ BUMP INDEX INDEX 


0664 


0456 


0007 




7 




0665 


0457 


1140 




ADM 




0666 


0460 


0010 




MARK 




0667 


0461 


0210 




XSK MARK 


/ TEST FOR END OF INDEX 


0670 


04 62 


0467 




SKP 


/ NOT END 


0671 


0463 


6543 




JMP RTRN0 


/ NO SPACE IN INDEX -- RETURN ZERO 


0672 


04 64 


1S30 




LDA I MARK 


/ FIRST WORD OF INDEX NAME 


0673 


0465 


1460 




SAE I 


/ CHECK FOR EMPTY ENTRY 


0674 


-•0-4-66 


5757 




• 5757 




0675 


0467 


6455 




JMP FSP070 


/ NOT EMPTY, TRY NEXT 


06 76 






/ 






0677 






/ 


MARK POINTS TO 


AN UNUSED INDEX ENTRY 


0700 






/ 


PUT THE NAME INTO IT 


0701 






/ 






0702 


0470 


1003 




LDA PARM2 


/ FIRST WORD OF USER NAME 


0703 


0471 


1050 




STA MARK 


/ PLUNK INTO INDEX 


07 04 


04 72 


1023 




LDA I PARM2 


/ 2ND 


0705 


0473 


1070 




STA I MARK 




0706 


0474 


1023 




LDA I PARM2 


/ 3RD 


0707 


0475 


1070 




STA I MARK 




0710 


0 476 


1023 




LDA I PARM2 


/ 4TH 


0711 


0477 


1"0 7 0 




STA I ■ 'MARK 




0712 


0500 


1023 




LDA I PARM2 


/ TYPE CONTROL (S OR B) 


0713 


0501 


14 20 




SHD I 


/ IS TYPE S 


0714 


0502 


2300 • 




2300 




0715 


0503 


6510 




JMP FSP080 


/ YES 


0716 


0504 


1420 




SHD I 


/ IS TYPE B 


0717 


0505 


02.00 




0200 




0720 


0506 


6521 




JM D TSP090 


/ YES 


0721 


0507 


6543 




JMP RTRN0 


/ NO-- BOMB NOW 


0722 








EJECT 





f. 7 



0724 
0725 
0726 
0727 
0730 
0731 
0732 
0733 
0734 
0735 
0736 
0737 
0740 
0741 
0742 
0743 
0744 
0745 
0746 
0747 
0750 
0751 
0752 
0753 
0754 
0755 
0756 
0757 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 



0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0520 



0521 
0522 
0523 
0524 



0525 
0526 
0527 
0530 
0531 
0532 



0533 
0534 
0535 
0536 
0537 
0540 
0541 
0542 
0543 
0.5 44 
0545 
0546 
0547 



0047 

0010 

0227 
0227 
1020 
5757 
1067 
1067 
6 525 



1020 
5757 
1070 
1070 



1300 
0635 
1070 
1046 
1026 
1070 



0062 
•0704 
0077 
6542 
0061 
0277 
6044 
0235 
0040 
0015 
0500 
6244 
6000 



/ 
/ 

FSP030 



HE WANTS A SOURCE FILE -- SCRATCH THE BINARY POINTERS 



> SET LP2 
MARK 

XSK I LP2 
XSK I LP2 
L 0 A I 
5757 

STA I LP2 
STA I LP2 
JMP FSP100 



/ TEMP POINTER 

/ CANT SKIP 

/ DITTO 

/ GET 57S , . . 

/ STORE THEM. . . 

/ . . . IN BINARY POINTERS 



/ 
/ 
/ 

FSP090 



/ 
/ 
/ 

FSP100 



HE WANTS BINARY FILE 



, LDA I 
5757 

STA I MARK 
STA I MARK 



/ STORE 57S. . . 

/. . . IN SOURCE POINTERS 



MARK NOW POINTS TO POINTER AREA OF DESIRED TYPE IN A NAMED INDEX EN T ? V 



LDA 
TRY 

STA I MARK 

STA LP1 

LDA I LP1 

STA I MARK 



/ PICK UP STARTING BLOCK 

/ STORE IN INDEX 

/ STORE IN USERS LIST 

/ GET LENGTH 

/ STORE IN INDEX 



NOW EVERYBODY IS HAPPY EXCEPT THE TAPE. WHICH HASNT BEEN UPDATED 



FSP110 
RTRN0, 



SET I RDWR 
704 

SET I RETURN 
JMP FSP110 
SET I P ARAM 
XP ARM 
JMP RWENT 
, XSK I RET3 
SET 0 
RET3 
IOB 
LRMF 
JMP 0 
EJECT 



/ SETUP WRITE CODE 

/ SETUP RETURN JMP 

/ INST MOVED FOR LATER USE 

/ SETUP PARAMETER POINTER 

/ GO DO THE WRITE 

/ BUMP RETURN A DDR 

/ MOVE RETURN JMP TO 0 



/ RESTORE USERS FIELDS 
/ GO TO CALLER 









/ 






10fcl 






/ FIND POSSIBLE 


CONFLICT 8ETWEEN INDEX ENTRY AND i * T AL ? AKMNG BLOCK 


10 02 

10 03^^ 

; „ 4 ^^^^ 






/ CALLER MUST SET OR CLEAR I-BI^Jj FCF050 TO SELECT DESIRED FILE : ' 1 R E A 
/ 


1005 


0550 


0056 




/ 


b A V t K L I U K N 


12 06 


05 51 


0000 


0 






1007 


0552 


0064 


he ' I X r N I 


/ 


I N I T I A L I c t rU IN 1 LH I U I N u t X i \ L w h t. 


1010 ' 


25 53 


10 06 


I \ ! QE X+ 6 






1011 


0554 


0224 


i- XSK i XhNI 


/ 


SKIP ON END OF INDEX 


1212 


0555 


0467 


SKP 






1013 


0556 


6016 


JMP RET2 


/ 


END OF INDEX* RETURN NO CONFLICT 


1014 


0557 


0224 


XSK I XPNT 


/ 


INCREMENT AGAIN. NO SKIP POSSIBLE. 


1015 


0560 


1000 


LDA 


/ 


PICK UP POINTER 


1016 


0561 


0004 


XPNT 






1017 


0562 


0323 


ROR I 3 


/ 


MOVE BIT 9 TO LINK 


1020 


0563 


0452 


L £E 


/ 


SKIP IF NAME AREA OF ENfRY 


1021 


0564 


6602 


JMP FCF040 


/ 


JMP IF POINTER AREA 


1022 


0565 


1004 


LDA XPNT 


/ 


GET FIRST WORD OF NAME 


1023 


0566 


1460 


S AE I 


/ 


SKIP IF EMPTY ENTRY 


1024 


0567 


5757 


5757 






1025 


0570 


• 6576 


JMP FCF030 


J 
/ 


WORD IS VALID NAME 


1026 


0571 


1020 


LDA I 




GET CONSTANT 6 


1027 


0572 


0006 


6 






1030 


0573 


1140 


ADM 


/ 


ADDRESS NEXT ENTRY - 2, THIS ONE IS EMPTY 


1031 


0574 


0004 


XPNT 






1032 


0575 


6554 


JMP FCF010 


/ 


TRY NEXT INDEX ENTRY 


1033 


0576 


1020 


FCF030, LDA I 


/ 


INCREMENT BY 4 


1034 


0577 


0004 


4 






10 35 


0600 


1140 


ADM 


/. 


, . TO ADDRESS POI NTER 


1036 


0601 


0004 


XPNT 






1037 






/ 






1040 






/ XPNT NOW ADDRESSES A 


AT a AT T n r rst a a l/ MA 

, STARTING BLOCK NO 


1041 






/ 






1042 


0602 


1004 


FCF040, LDA XPNT 


/ 


PICK UP STARTING BLOCK 


1043 


0603 


1120 


ADA I 


/ 


A J 1 A T A A A T* T M f>T V i A A A T T A A i 

SUBTRACT INDEX LOCATION 


1044 


£604 


7430 


-347 






1045 


0605 


0451 


FCF050, APO 


/ 


REVERSE SENSE BIT MAY BE SE~ B Y CALLER 


1046 


0606 


6554 


JMP FCF010 


/ 


TRY AGAIN IF WRONG (- I LE AREA 


1047 


0607 


0045 


SET XPNT2 


/ 


TEMP POINT TO LENGTH WORD 


1050 


0610 


0004 


XPNT 






1051 


0611 


1025 


LDA I XPNT2 


/ 


PICK UP LENGTH 


1052 


0612 


04 51 


APO 


/ 


SKIP IF LENGTH POS 


1053 


0613 


6554 


JMP FCF010 


/ 


NEG LEN -- NO FILE HERE 


1054 






EJECT 







1056 






/ 


WE NOW HAVE A 


VALID 


INDEX ENTRY 


1057 






/ 


COMPARE I T TO 


TRY 




1060 






/ 








1061 


0614 


1004 




LDA XPNT 


/ 


STARTING BLOCK OF THIS FIlE 


1062 


0615 


1560 




BCL I 


/ 


CLEAR GARBAGE IN HIGH THREE BPS 


1063 


0616 


7000 




700? 






1064 


0617 


0017 




COM 






1065 . 


0620 


2635 




ADD r R Y 


/ 


SUBTRACT XSTART FROM T RY 


1066 


0621 


0451 




APO 


/ 


SKIP IF TRY ABOVE X S T A R T 


1067 


0622 


6630 




JMP FCF360 


/ 


JMP IF BELOW 


1070 






/ 








1071 






/ 


TRY IS ABOVE 


THE START OF THIS FILE 


1072 






/ 








1073 


0623 


0017 




COM 


/ 


MAKE DIFFERENCE NEGATIVE 


1074 


0624 


1105 




ADA XPNT 2 


/ 


SUBTRACT DIFFERENCE FROM FILE LENGTH 


1075 


0625 


0451 




APO 


/ 


ZERO RESULT WILL BE NEG (77775 


1076 


0626 


6554 




JMP FCF010 


/ 


NO CONFLICT, TRY NEXT ENTRY 


1077 


0627 


6633 




JMP FCF070 


/ 


CONFLICT FOUND RETURN 


1100 






/ 








1101 






/ 


THE TRY IS BELOW OR 


AT THE START OF THIS FILE 


1102 






/ 








1103 


0630 


2636 


FCF060, ADD TR YL EN 


/ 


SUBTRACT STARTING DIFF FROM LEN OF TRY 


1104 


0631 


0451 




APO 


/ 


SKIP IF CONFLICT 


1105 


06 32 


6554 




JMP FCF010 


/ 


NO CONFLICT - TRY NEXT ENTRY 


1106 






/ 








1107 






/ 


WE HAVE FOUND 


A CONFLICT -- RETURN IT TO CALLER 


1110 






/ 








1111 


0633 


0236 


FCF070 


, XSK I RET2 


/ 


INCREMENT RETURN ADDRESS 


1112 


0634 


6016 




JMP RET 2 


/ 


GO BACK 


1113 






/ 








1114 






/ 


WORK AREA 






1115 






/ 








1116 


0635 


0000 


TRY, 


0 






1117 


0636 


0000 


TRYLEN 


, 0 






1120 


0637 


0000 


SVTRY , 


0 






1121 


0640 


0000 


UPLIM, 


0 






1122 








EJECT 







1124 

1125 
1126, 
11271 



DELETE REMOVE A FILE FROM THE DIAL INDEX 

SAME CALLING SEQUENCE AS LOOK^J EXCEPT NO A L T E R N A T F R r ■ 0 R \ 5 



f <: 



1130 


06 41 


0055 


DEL000 


. SET RET3 


/ 


SAVE RETURN 


1131 


0642 


0000 




0 






113 2 


2643 


6144 




JMP LKP300 


/ 


LOOKUP NAME IN INDEX 


1133 


064 4 


6 54 3 




JMP RTRN0 


/ 


DIDNT FIND THE FILE 


X X <J ~ 


06 4 5 


6543 




JMP R T R N 0 


/ 


DITTO 


1135 


06 4 6 


1020 




LDA I 


/ 


DECREMENT X P N T 2 


11 36 


06 47 


77 76 




-1 






1137 

X X / 


0650 


1140 




ADM 


/ 


, ..TO ADDRESS START BLOCK FIELD 


1140 


06 51 


0005 




XPNT2 






1141 


06 52 


1020 




LDA I 


/ 


EMPTY AREA INDICATOR 


1142 


0653 


57 57 




5757 






1143 


0654 


1045 




STA XPNT2 


/ 


2AP START BLOCK FIELD 


1144 


0655 


10 65 




STA I XPNT2 


/ 


DITTO LEN 


1145 


0656 


1000 




LDA 


/ 


GET POINTER 


114 6 


0657 


0005 




XPNT2 






1147 

X X » ' 


0 660 


16 60 




BCO I 


/ 


ADDRESS OTHER TYPE LEN FIELD 


1150 


0661 


0002 




2 






1151 

X X X 


0662 


4005 




STC XPNT2 






115? 
x x c 


0663 


1005 




IDA XPNT? 


/ 


PITK 1 PNGTH OF OTHFR-TYPF f I 1 p 


1 1 51 


0664 

KJ U w T 


04 71 




API I 

h r u i 


/ 


^ K T P TF DTMFR-TYPF FMPTY 


1154 


V\ 6 65 

IC' u w y 


6710 




IMP f)FI 


/ 


GO RE- WRITE IN DFX 


1 1 55 




1 020 

X C KJ 




IDA I 

U U *i 1 


/ 


ROTH T Y P F R FMPTY -- f 1 F A R VAMF 


1156 


0667 


5757 




5757 






1157 


0670 


1044 




STA XPNT 


/ 


2AP FIRST WORD OF NAME 


1160 


0671 


1064 




STA I XPNT 


/ 


2ND 


1161 


0672 


1064 




STA I XPNT 


/ 


3RD 


1162 


06 73 


1064 




STA I XPNT 


/ 


4TH 


1163 






/ 








1164 

x x \/ « 






/ 


WAS THAT THE 


LAST 


F 1 1 E 


1165 

X X W 














1 1 66 


06 74 


00 64 




SET T X P N T 


/ 


POINT TO START OF INDEX 


1167 

X X w / 


0675 


0777 




I N D E X - 1 






1170 

XX' *J 


0676 


1464 


DEL010 

ULL.U1W 


f SAF T XPNT 


/ 


IS THFRF A NON-EMPTY ENTRY 


1171 


0677 


6710 




JMP DEL030 


/ 


YES - REWRITE 


1172 


0700 


0204 




XSK XPNT 


/ 


CHECK FOR END 


1173 


0701 


6676 




JMP DEL 010 


/ 


NOT YET - LOOP 


1174 






/ 








1175 






/ 


INDEX IS E M P 


TY: MAKE IT a NON-INDEX 


1176 






/ 








1177 


0702 


0011 




CLR 






1200 


0703 


00 6 4 




SET I XPN T 


/ 


POINT TO INDEX 


1201 


2 70 4 


0777 




I N D E X - 1 






12 02 


07 05 


10 64 




STA I XPNT 


/ 


ZERO ONE WORD 


1203 


070 6 


02 0 4 




XSK XPNT 


/ 


LAST ONE ? 


1204 


07 0 7 


6705 




JMP .-2 


/ 


NO - LOOP 


1205 






/ 








1206 






/ 


RE-WRITE INDEX 






1207 






/ 








1210 


2710 


0062 


DEL030 


, SET I R D W R 


/ 


SET WRITE CODE 


1211 


0 711 


0 7 0 4 




704 






1212 


0712 


00 7 7 




SET I RETURN 


/ 


RETURN JUMP FOR R/ W R 0 U T I \ £ 


1213 


0 r 1 3 


6 5 4 3 




JMP R T R N 2 






1214 


0.714' 


00 61 




SE T I p A R A M 






1215 


0M5 


22 77 




XP ARM 






1216 


0 7 16 


6044 




JMP R W £ N T 


/' 


DO THE WRITE THING, AN D RE Ti JP\ 



1217 



EJECT 



1221 / THIS WILL CAUSE AN ASSEMBLY ERROR IT - R"D"0"n "NEHETCUirTFS— Sirnn?ui — 

1222 / THAT INDEX WILL OVERLAY CODE WHEN I T IS READ I \ 

1223 ASMIFM INDEX-. 

1224 NAUGHTY BAD BOY - ROUTINE IS TOO BIG FfiR ONE FIELD. 

1225 / IN CASE OF MINOR S\2£ PROBLEMS > REMOVE 5 LINES Or CODE A T r C F v" •'• . 

1226 / REMOVE 3 LINES AT FSP000, AND T HREE LINES A " F SP?3b. T H'S SH;.:.-. 

1227 / REMOVE ALL REFERENCES TO FCF050. A L L C HER "AGS muS t BE R E ~ A I V r '\ 
1230 / 

1231 

1232 / 

1233 / END OF FRED 

1234 / 

f./i 



COMMON 4041 
DEL000 4641 
OEL010 4676 
DEL030 4710 
ENTSW 0011 
ERRTN 4252 
EXT .4054 
FCF000 4550 
FCF010 4554 
FCF030 4576 
FCF040 4602 
FCF050 4605 
FCF060 4630 
FCF070 4633 
FOV 0002 
FSP000 4345 
FSP010 4370 
FSP020 4404 
FSP030 4413 
FSP035 4425 
FSP040 4432 
FSP050 4444 
FSP060 4451 
FSP070 4455 
FSP080 4510 
FSP090 4521 
FSP100 4525 
FSP110 4542 
GETFLD 4116 
GTF010 4140 
INDEX 1000 
IOBLK 4100 
IOLOOP 4071 
LKP000 4144 
LKP010 4174 
LKP020 4213 
LKP030 4215 
LKP050 4236 
LOOKUP 4142 
LP1 0006 
LP2 0007 
LRIB 6234 
LRIF 6224 
LRMF 6244 
MARK 0010 
MEMADD 4072 




NT R0 £• 


1321 


NTR0^ 


4335 


NTR»| 


|4 3 4 2 


IM T R 0^P 


*4 34 4 


P ARAM 


0 001 


P A R H 2 


00 0 3 


ROWR 


0 0 0? 


READ 


4 0.3 


RETURN 
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